home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE04 / INFO / INFOU.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1995-09-14  |  1.9 KB  |  70 lines
  1. unit Infou;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Label1: TLabel;
  12.     Label2: TLabel;
  13.     Label3: TLabel;
  14.     Label4: TLabel;
  15.     Label5: TLabel;
  16.     Label6: TLabel;
  17.     Label7: TLabel;
  18.     Label8: TLabel;
  19.     Label9: TLabel;
  20.     Label10: TLabel;
  21.     Label11: TLabel;
  22.     Label12: TLabel;
  23.     Label13: TLabel;
  24.     Label14: TLabel;
  25.     Label15: TLabel;
  26.     procedure FormCreate(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  32.  
  33. var
  34.   Form1: TForm1;
  35.  
  36. implementation
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TForm1.FormCreate(Sender: TObject);
  41. const
  42.   CCSig: String[4] = '    ';
  43. var
  44.   CCSigNum: Longint;
  45. begin
  46.   Label1.Caption := Label1.Caption + IntToHex(DSeg, 4);
  47.   Label2.Caption := Label2.Caption + Format('%x:%x', [SSeg, SPtr]);
  48.   Label3.Caption := Label3.Caption + IntToHex(CSeg, 4);
  49.   Label4.Caption := Label4.Caption + IntToHex(MemL[DSeg:0], 8);
  50.   Label5.Caption := Label5.Caption + IntToStr(MemW[DSeg:4]);
  51.   Label6.Caption := Label6.Caption + IntToHex(MemW[DSeg:6], 4);
  52.   if MemW[DSeg:8] = 0 then
  53.     Label7.Caption := Label7.Caption + 'none'
  54.   else
  55.     Label7.Caption := Label7.Caption + 'DS:$' + IntToHex(MemW[DSeg:8], 4);
  56.   Label8.Caption := Label8.Caption + IntToHex(MemW[DSeg:$A], 4);
  57.   Label9.Caption := Label9.Caption + IntToHex(MemW[DSeg:$C], 4);
  58.   Label10.Caption := Label10.Caption + IntToHex(MemW[DSeg:$E], 4);
  59.   Label11.Caption := Label11.Caption + Format('%p', [Pointer(MemL[DSeg:$20])]);
  60.   Label12.Caption := Label12.Caption + Format('%p', [Pointer(MemL[DSeg:$24])]);
  61.   CCSigNum := MemL[DSeg:$28];
  62.   Move(CCSigNum, CCSig[1], SizeOf(CCSigNum));
  63.   Label13.Caption := Label13.Caption + CCSig;
  64.   Label14.Caption := Label14.Caption + IntToHex(MemW[DSeg:$2C], 4);
  65.   Label15.Caption := Label15.Caption + IntToHex(MemW[DSeg:$2E], 4);
  66.  
  67. end;
  68.  
  69. end.
  70.